home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C64 Fever 92 #1
/
C64_Fever_92-01_1992_-_de.d64
/
disk utility v 2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
4KB
|
165 lines
90 poke53280,0:poke53281,0
100 print"[147] disk-utility v2.0 ";
110 print" (c) 1990 by torsten erdmann [146]"
120 print" f1[146] schreibschutz setzen"
130 print" f2[146] schreibschutz loeschen"
140 print" f3[146] scratchschutz setzen/loeschen"
150 print" f4[146] floppybefehl senden"
160 print" f5[146] filetyp setzen"
170 print" f6[146] file offen/geschlossen"
180 print" f7[146] id aendern"
190 print" f8[146] diskname aendern"
195 print:print:print" bitte waehlen ! "
200 getx$:ifx$=""then200
210 ifasc(x$)<133orasc(x$)>140then200
220 print"[147]";:onasc(x$)-132goto850,1060,1260,650,950,1640,1480,750
230 rem ::::::::::::::::::::::::::::::
240 rem :::directory-eintrag lesen::::
250 rem ::::::::::::::::::::::::::::::
260 open15,8,15,"i":open8,8,8,"#"
270 nn$="":fori=1to30:nn$=nn$+chr$(0):nexti
280 xx=int((mm-1)/8)
290 print#15,"u1 8 0 18 0"
300 forzz=1toxx+1
310 print#15,"b-p 8 0"
320 get#8,tt$:tt=asc(tt$+chr$(0))
330 get#8,ss$:ss=asc(ss$+chr$(0))
340 print#15,"u1 8 0";tt;ss
350 nextzz
360 pp=mm-(xx*8):pp=(pp-1)*32+2
370 print#15,"b-p 8";pp
380 forzz=1to30:get#8,zz$
390 ifzz$=""thenzz$=chr$(0)
400 dd$=dd$+zz$:nextzz
410 close8:close15
420 return
430 rem ::::::::::::::::::::::::::::::
440 rem ::directory-eintrag schreiben:
450 rem ::::::::::::::::::::::::::::::
460 open15,8,15,"i":open8,8,8,"#"
470 xx=int((mm-1)/8)
480 print#15,"u1 8 0 18 0"
490 forzz=1toxx+1
500 print#15,"b-p 8 0"
510 get#8,tt$:tt=asc(tt$+chr$(0))
520 get#8,ss$:ss=asc(ss$+chr$(0))
530 iftt=0then600
540 print#15,"u1 8 0";tt;ss
550 nextzz
560 pp=mm-(xx*8):pp=(pp-1)*32+2
570 print#15,"b-p 8";pp
580 print#8,dd$;
590 print#15,"u2 8 0";tt;ss
600 close8:close15
610 return
620 rem ::::::::::::::::::::::::::::::
630 rem ::::::::::id aendern::::::::::
640 rem ::::::::::::::::::::::::::::::
650 open15,8,15
660 print#15,"i0":open1,8,3,"#":print#15,"u1:3"0",18,0"
670 print#15,"b-p:3,162":get#1,a$,b$,c$,d$,e$:print"alter disk-id ist ";a$;
680 printb$;c$;d$;e$:input"neuer disk-id ";f$
690 iflen(f$)<>5thenf$=left$(f$+" ",5)
700 print#15,"b-p:3,162":print#1,f$;:print#15,"u2:3"dv",18,0
710 i$[178]"i"[170][202]([196](dv),2):[152]15,i$
715 [160]1:[160]15:[138]
720 [143] ::::::::::::::::::::::::::::::
730 [143] ::::::disk-name aendern:::::::
740 [143] ::::::::::::::::::::::::::::::
750 [159]15,8,15
760 [152]15,"i0":[159]1,8,3,"#":[152]15,"u1:3"0",18,0"
770 [152]15,"b-p:3,144":r$[178]"":[129]l[178]1[164]16:[161]#1,a$:r$[178]r$[170]a$:[130]l
780 [153]"alter disk-name ist ";""r$"wait"
790 [133]"neuer disk-name ";ne$
800 ne$[178][200](ne$[170]" ",16)
810 [152]15,"b-p:3,144":[152]1,ne$;:[152]15,"u2:3"dv",18,0":[137]710
820 [143] ::::::::::::::::::::::::::::::
830 [143] :::::schreibschutz setzen:::::
840 [143] ::::::::::::::::::::::::::::::
850 [159]15,8,15,"i":[159]8,8,8,"#"
860 [152]15,"u1 8 0 18 0"
870 [152]15,"b-p 8 2"
880 [152]8,"x";
890 [152]15,"u2 8 0 18 0"
900 [152]15,"i"
910 [160]8:[160]15:[138]
920 [143] ::::::::::::::::::::::::::::::
930 [143] ::::schreibschutz loeschen::::
940 [143] ::::::::::::::::::::::::::::::
950 [159]15,8,15,"i":[159]8,8,8,"#"
960 [152]15,"u1 8 0 18 0"
970 [152]15,"b-p 8 2"
980 [152]15,"m-w"[199](1)[199](1)[199](1)[199](65)
990 [152]8,"a";
1000 [152]15,"u2 8 0 18 0"
1010 [152]15,"i"
1020 [160]8:[160]15:[138]
1030 [143] ::::::::::::::::::::::::::::::
1040 [143] :scratchschutz setzen/loeschen
1050 [143] ::::::::::::::::::::::::::::::
1060 mm[178]0
1070 mm[178]mm[170]1:dd$[178]"":[141]260
1080 [139]dd$[178]nn$[167][138]
1090 [153][202](dd$,4,16)" (j/n)";
1100 [161]aa$:[139]aa$[179][177]"j"[175]aa$[179][177]"n"[167]1100
1110 [139]aa$[178]"n"[167][153]"cmdcmdnwait":[137]1170
1120 [153]"cmdcmdcmdcmdjwait":hh$[178][200](dd$,1)
1130 hh$[178][199]([198](hh$)[176]2[174]6)
1140 dd$[178]hh$[170][201](dd$,29)
1150 [141]460
1160 [137]1070
1170 hh$[178][200](dd$,1)
1180 [139]([198](hh$)[175]64)[167]hh$[178][199]([198](hh$)[171]64)
1190 dd$[178]hh$[170][201](dd$,29)
1200 [141]460
1210 [137]1070
1220 [138]
1230 [143] ::::::::::::::::::::::::::::::
1240 [143] ::::::::filetyp setzen::::::::
1250 [143] ::::::::::::::::::::::::::::::
1260 mm[178]0
1270 mm[178]mm[170]1:dd$[178]"":[141]260
1280 [139]dd$[178]nn$[167][138]
1290 [153][202](dd$,4,16)" del seq prg usr rel";
1300 [161]x$:[139]x$[179][177]"d"[175]x$[179][177]"s"[175]x$[179][177]"p"[175]x$[179][177]"u"[175]x$[179][177]"r"[167]1300
1310 [139]x$[178]"d"[167]hh[178]0:[153]"cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmddelwait"
1320 [139]x$[178]"s"[167]hh[178]1:[153]"cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdseqwait"
1330 [139]x$[178]"p"[167]hh[178]2:[153]"cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdprgwait"
1340 [139]x$[178]"u"[167]hh[178]3:[153]"cmdcmdcmdcmdcmdcmdcmdusrwait"
1350 [139]x$[178]"r"[167]hh[178]4:[153]"cmdcmdcmdrelwait"
1360 hh$[178][200](dd$,1):hi[178][198](hh$)
1370 [139]hi[175]1[167]hi[178]hi[171]1
1380 [139]hi[175]2[167]hi[178]hi[171]2
1390 [139]hi[175]4[167]hi[178]hi[171]4
1400 hh$[178][199](hi[170]hh)
1410 dd$[178]hh$[170][201](dd$,29)
1420 [141]460
1430 [137]1270
1440 [138]
1450 [143] ::::::::::::::::::::::::::::::
1460 [143] ::::file offen/geschlossen::::
1470 [143] ::::::::::::::::::::::::::::::
1480 mm[178]0
1490 mm[178]mm[170]1:dd$[178]"":[141]260
1500 [139]dd$[178]nn$[167][138]
1510 [153][202](dd$,4,16)" (offen/geschlossen)";
1520 [161]x$:[139]x$[179][177]"o"[175]x$[179][177]"g"[167]1520
1530 hh$[178][200](dd$,1)
1540 [139]x$[178]"g"[167][153]"cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdgeschlossenwait":hh$[178][199]([198](hh$)[176]64):[137]1570
1550 [153]"cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdoffenwait"
1560 [139]([198](hh$)[175]64)[167]hh$[178][199]([198](hh$)[171]64)
1570 dd$[178]hh$[170][201](dd$,29)
1580 [141]460
1590 [137]1490
1600 [138]
1610 [143] ::::::::::::::::::::::::::::::
1620 [143] :::::floppybefehl:senden::::::
1630 [143] ::::::::::::::::::::::::::::::
1640 [151]19,1:[133]be$:[151]19,0
1650 [159]15,8,15,be$:[160]15
1660 [159]15,8,15:[132]15,fr,f$,ft,fs
1670 [139]fr[178]0[167]1700
1680 [153]:[153]fr;f$" error";ft;fs
1690 [161]be$:[139]be$[178]""[167]1690
1700 [138]